home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 65.zip / BS1 part 65 / Math Visin v2.1 disk 1.adf / Arexx.WB / Contour / Convolves / Randomize < prev    next >
Text File  |  1992-02-12  |  268b  |  14 lines
  1. /* Randomize    put noise into a picture, as a sample only  8-Mar-90 dh */
  2. ADDRESS "MathVision"
  3. OPTIONS RESULTS
  4.  
  5. OverPlot "T"
  6. ContourScaling "F"
  7. ContourClipping "F"
  8. Get Depth
  9. MaxNum = 2**RESULT-1
  10.  
  11. F0 "WPix(px,py,Min(Max(RPix(px,py)+(rnd-.5)*7,0),"MaxNum"))"
  12.  
  13. PlotContour
  14.